home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-9.10-netbook-remix-PL.iso / casper / filesystem.squashfs / usr / share / perl5 / Dpkg / Gettext.pm
Encoding:
Perl POD Document  |  2009-09-20  |  488 b   |  39 lines
  1. #!/usr/bin/perl -w
  2. # Copied from /usr/share/perl5/Debconf/Gettext.pm
  3.  
  4. package Dpkg::Gettext;
  5.  
  6. use strict;
  7. use warnings;
  8.  
  9. BEGIN {
  10.     eval 'use Locale::gettext';
  11.     if ($@) {
  12.         eval q{
  13.             sub _g {
  14.                 return shift;
  15.             }
  16.             sub textdomain {
  17.             }
  18.             sub ngettext {
  19.                 if ($_[2] == 1) {
  20.                     return $_[0];
  21.                 } else {
  22.                     return $_[1];
  23.                 }
  24.             }
  25.         };
  26.     } else {
  27.         eval q{
  28.             sub _g {
  29.                 return gettext(shift);
  30.             }
  31.         };
  32.     }
  33. }
  34.  
  35. use base qw(Exporter);
  36. our @EXPORT=qw(_g textdomain ngettext);
  37.  
  38. 1;
  39.